home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cocktail / mtc.lha / mtc / src / Positions.mi < prev    next >
Text File  |  1992-11-24  |  407b  |  18 lines
  1. IMPLEMENTATION MODULE Positions;
  2.  
  3. FROM IO        IMPORT tFile, WriteS, WriteI;
  4. FROM Idents    IMPORT NoIdent;
  5.  
  6. PROCEDURE WritePosition (File: tFile; Position: tPosition);
  7.    BEGIN
  8.       WriteI (File, Position.Line  , 3);
  9.       WriteS (File, ", ");
  10.       WriteI (File, Position.Column, 2);
  11.    END WritePosition;
  12.  
  13. BEGIN
  14.    NoPosition.File    := NoIdent;
  15.    NoPosition.Line    := 0;
  16.    NoPosition.Column    := 0;
  17. END Positions.
  18.